Public Class Participante
    Inherits Usuario

    Private strNome As String
    Private strPapel As String

    Public Sub New(ByVal objUsuario As Usuario, ByVal strNome As String, ByVal strPapel As String)
        MyBase.new(objUsuario.getLogin, objUsuario.getSenha, objUsuario.getCargo)
        Me.strNome = strNome
        Me.strPapel = strPapel
    End Sub

    Public Sub setNome(ByVal Nome As String)
        strNome = Nome
    End Sub

    Public Function getNome() As String
        getNome = strNome
    End Function

    Public Sub setPapel(ByVal Papel As String)
        strPapel = Papel
    End Sub

    Public Function getPapel() As String
        getPapel = strPapel
    End Function

End Class
